#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для разбора выдачи результатов поиска Яндекса (загаловки найденных сайтов).

# РЕШЕНИЕ:
# Извлекает загаловки сайтов, выводит каждый с новой строки.

$html = "";

while ($line = <>) {
    $html .= $line;
}

print "<html>\n<body>\n";

while ($html =~ m/<span>(.*?)<\/span>/g) {
    print "$1<br>\n";
}

print "</body>\n</html>";
